PsL Monthly 1993 December

home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / joystck.com / JOYSTICK.DOC < prev next >
Unknown | 1989-11-14 | 3.6 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`1%`	dexvert	WANG Integrated Word Processor `(document/wangIWP)`	ext	Unsupported
`1%`	dexvert	Dynamic Publisher Document `(document/dynamicPublisherDocument)`	ext	Unsupported
`1%`	dexvert	Excellence! Document `(document/excellenceDocument)`	ext	Unsupported
`1%`	dexvert	Norton Textra Writer `(document/textraWriter)`	ext	Unsupported
`1%`	dexvert	IBM DisplayWrite Document `(document/ibmDisplayWriteDocument)`	ext	Unsupported
`100%`	file	data	default
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| c4 c5 d3 cb d4 cf d0 ae | ce cf d4 c5 d0 c1 c4 d3 |........|........|
|00000010| 15 4e 01 00 8a 8f 8d 00 | 00 00 00 00 00 00 00 ff |.N......|........|
|00000020| 04 09 0e 13 18 1d 22 27 | 2c 31 36 3b 40 45 4a ff |......"'|,16;@EJ.|
|00000030| 00 ff 00 ff 00 90 05 30 | 30 30 30 38 08 00 05 30 |.......0|0008...0|
|00000040| 30 30 37 33 49 00 05 30 | 30 30 30 36 06 00 05 30 |0073I..0|0006...0|
|00000050| 30 30 30 36 06 00 05 30 | 30 30 36 36 42 00 05 30 |0006...0|0066B..0|
|00000060| 30 30 30 31 01 00 05 30 | 30 30 30 31 01 00 05 30 |0001...0|0001...0|
|00000070| 30 30 30 31 01 00 00 00 | 00 00 00 00 00 00 00 00 |0001....|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 23 00 00 00 00 00 |........|..#.....|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 4a 4f |........|......JO|
|000000e0| 59 53 54 49 43 4b 20 55 | 6e 69 74 20 66 6f 72 20 |YSTICK U|nit for |
|000000f0| 54 75 72 62 6f 20 50 61 | 73 63 61 6c 20 20 28 4a |Turbo Pa|scal  (J|
|00000100| 53 54 49 43 4b 2e 41 52 | 43 29 0d 0a 50 75 62 6c |STICK.AR|C)..Publ|
|00000110| 69 63 20 44 6f 6d 61 69 | 6e 20 62 79 20 4a 6f 6e |ic Domai|n by Jon|
|00000120| 53 6f 66 74 20 54 65 63 | 68 6e 6f 6c 6f 67 69 65 |Soft Tec|hnologie|
|00000130| 73 20 49 6e 63 2e 0d 0a | 00 0d 0a 54 68 69 73 20 |s Inc...|...This |
|00000140| 41 52 43 48 49 56 45 44 | 20 66 69 6c 65 20 73 68 |ARCHIVED| file sh|
|00000150| 6f 75 6c 64 20 63 6f 6e | 74 61 69 6e 20 2d 0d 0a |ould con|tain -..|
|00000160| 20 4a 4f 59 53 54 49 43 | 4b 2e 50 41 53 20 2d 20 | JOYSTIC|K.PAS - |
|00000170| 74 68 65 20 4a 4f 59 53 | 54 49 43 4b 20 75 6e 69 |the JOYS|TICK uni|
|00000180| 74 20 73 6f 75 72 63 65 | 20 63 6f 64 65 0d 0a 20 |t source| code.. |
|00000190| 4a 4f 59 53 54 49 43 4b | 2e 54 50 55 20 2d 20 74 |JOYSTICK|.TPU - t|
|000001a0| 68 65 20 4a 4f 59 53 54 | 49 43 4b 20 75 6e 69 74 |he JOYST|ICK unit|
|000001b0| 20 66 6f 72 20 54 50 20 | 35 2e 78 20 28 73 65 65 | for TP |5.x (see|
|000001c0| 20 6e 6f 74 65 73 21 29 | 0d 0a 20 4a 4f 59 44 45 | notes!)|.. JOYDE|
|000001d0| 4d 4f 2e 50 41 53 20 20 | 2d 20 6a 6f 79 73 74 69 |MO.PAS  |- joysti|
|000001e0| 63 6b 20 64 65 6d 6f 6e | 73 74 72 61 74 69 6f 6e |ck demon|stration|
|000001f0| 20 70 72 6f 67 72 61 6d | 0d 0a 20 4a 4f 59 53 54 | program|.. JOYST|
|00000200| 49 43 4b 2e 44 4f 43 20 | 2d 20 74 68 69 73 20 66 |ICK.DOC |- this f|
|00000210| 69 6c 65 21 0d 0a 20 55 | 50 26 43 4d 49 4e 47 2e |ile!.. U|P&CMING.|
|00000220| 44 4f 43 20 2d 20 55 70 | 20 26 20 43 6f 6d 69 6e |DOC - Up| & Comin|
|00000230| 67 20 72 65 6c 65 61 73 | 65 73 20 66 72 6f 6d 20 |g releas|es from |
|00000240| 4a 6f 6e 53 6f 66 74 20 | 49 6e 63 2e 0d 0a 20 43 |JonSoft |Inc... C|
|00000250| 4f 50 59 52 49 54 45 2e | 44 4f 43 20 2d 20 66 75 |OPYRITE.|DOC - fu|
|00000260| 6c 6c 20 63 6f 70 79 72 | 69 67 68 74 20 61 67 72 |ll copyr|ight agr|
|00000270| 65 65 6d 65 6e 74 0d 0a | 20 0d 0a 2a 2a 20 4e 4f |eement..| ..** NO|
|00000280| 54 45 20 2d 20 4a 4f 59 | 53 54 49 43 4b 2e 54 50 |TE - JOY|STICK.TP|
|00000290| 55 20 69 73 20 66 6f 72 | 20 76 65 72 73 69 6f 6e |U is for| version|
|000002a0| 20 35 2e 78 20 28 35 2e | 30 2f 35 2e 35 20 65 74 | 5.x (5.|0/5.5 et|
|000002b0| 63 29 20 6f 66 20 54 75 | 72 62 6f 20 50 61 73 63 |c) of Tu|rbo Pasc|
|000002c0| 61 6c 20 61 6e 64 20 57 | 49 4c 4c 20 4e 4f 54 20 |al and W|ILL NOT |
|000002d0| 57 4f 52 4b 20 77 69 74 | 68 20 56 65 72 73 69 6f |WORK wit|h Versio|
|000002e0| 6e 20 34 2e 78 20 77 69 | 74 68 6f 75 74 20 72 65 |n 4.x wi|thout re|
|000002f0| 63 6f 6d 70 69 6c 61 74 | 69 6f 6e 2e 20 20 54 6f |compilat|ion.  To|
|00000300| 20 75 73 65 20 77 69 74 | 68 20 76 65 72 73 69 6f | use wit|h versio|
|00000310| 6e 20 34 2e 78 2c 20 6c | 6f 61 64 20 4a 4f 59 53 |n 4.x, l|oad JOYS|
|00000320| 54 49 43 4b 2e 50 41 53 | 20 69 6e 74 6f 20 74 68 |TICK.PAS| into th|
|00000330| 65 20 65 64 69 74 6f 72 | 20 61 6e 64 20 72 65 63 |e editor| and rec|
|00000340| 6f 6d 70 69 6c 65 20 69 | 74 20 74 6f 20 64 69 73 |ompile i|t to dis|
|00000350| 6b 2e 20 20 54 68 69 73 | 20 75 6e 69 74 20 57 49 |k.  This| unit WI|
|00000360| 4c 4c 20 4e 4f 54 20 57 | 4f 52 4b 20 77 69 74 68 |LL NOT W|ORK with|
|00000370| 20 76 65 72 73 69 6f 6e | 20 33 2e 78 20 6f 72 20 | version| 3.x or |
|00000380| 62 65 6c 6f 77 21 21 21 | 21 21 0d 0a 0d 0a 0d 0a |below!!!|!!......|
|00000390| 2a 2a 2a 20 55 73 69 6e | 67 20 4a 4f 59 53 54 49 |*** Usin|g JOYSTI|
|000003a0| 43 4b 20 2a 2a 2a 0d 0a | 0d 0a 31 2e 31 20 49 6e |CK ***..|..1.1 In|
|000003b0| 69 74 69 61 6c 69 7a 61 | 74 69 6f 6e 0d 0a 20 49 |itializa|tion.. I|
|000003c0| 66 20 79 6f 75 20 61 72 | 65 20 70 6c 61 6e 6e 69 |f you ar|e planni|
|000003d0| 6e 67 20 74 6f 20 75 73 | 65 20 74 68 65 20 6a 6f |ng to us|e the jo|
|000003e0| 79 73 74 69 63 6b 20 75 | 6e 69 74 20 74 6f 20 72 |ystick u|nit to r|
|000003f0| 65 74 72 69 65 76 65 20 | 58 2c 59 2c 20 61 6e 64 |etrieve |X,Y, and|
|00000400| 20 62 75 74 74 6f 6e 20 | 20 76 61 6c 75 65 73 20 | button | values |
|00000410| 66 72 6f 6d 20 74 68 65 | 20 6a 6f 79 73 74 69 63 |from the| joystic|
|00000420| 6b 20 6f 6e 6c 79 2c 20 | 74 68 65 72 65 20 69 73 |k only, |there is|
|00000430| 20 6e 6f 20 6e 65 65 64 | 20 74 6f 20 63 61 6c 6c | no need| to call|
|00000440| 20 65 69 74 68 65 72 20 | 6f 66 20 74 68 65 20 69 | either |of the i|
|00000450| 6e 69 74 69 61 6c 69 7a | 61 74 69 6f 6e 20 70 72 |nitializ|ation pr|
|00000460| 6f 63 65 64 75 72 65 73 | 2e 0d 0a 20 0d 0a 20 20 |ocedures|... ..  |
|00000470| 20 49 66 20 79 6f 75 20 | 70 6c 61 6e 20 74 6f 20 | If you |plan to |
|00000480| 75 73 65 20 74 6f 20 38 | 2d 70 6f 73 69 74 69 6f |use to 8|-positio|
|00000490| 6e 20 63 6f 6e 76 65 72 | 74 65 72 20 72 6f 75 74 |n conver|ter rout|
|000004a0| 69 6e 65 73 20 28 48 4f | 52 49 5a 2c 20 56 45 52 |ines (HO|RIZ, VER|
|000004b0| 54 2d 20 73 65 65 20 70 | 72 6f 63 65 64 75 72 65 |T- see p|rocedure|
|000004c0| 20 6c 69 73 74 69 6e 67 | 73 29 20 74 68 65 6e 20 | listing|s) then |
|000004d0| 79 6f 75 20 73 68 6f 75 | 6c 64 20 63 61 6c 6c 20 |you shou|ld call |
|000004e0| 65 69 74 68 65 72 20 6f | 66 20 74 68 65 20 74 77 |either o|f the tw|
|000004f0| 6f 20 69 6e 69 74 69 61 | 6c 69 7a 61 74 69 6f 6e |o initia|lization|
|00000500| 20 70 72 6f 63 65 64 75 | 72 65 73 2e 0d 0a 0d 0a | procedu|res.....|
|00000510| 31 2e 32 20 50 72 6f 63 | 65 64 75 72 65 20 6c 69 |1.2 Proc|edure li|
|00000520| 73 74 69 6e 67 0d 0a 0d | 0a 46 61 73 74 49 6e 69 |sting...|.FastIni|
|00000530| 74 4a 53 20 0d 0a 20 20 | 20 49 6e 69 74 69 61 6c |tJS ..  | Initial|
|00000540| 69 7a 65 73 20 74 68 65 | 20 6a 6f 79 73 74 69 63 |izes the| joystic|
|00000550| 6b 20 77 69 74 68 6f 75 | 74 20 61 6e 79 20 6d 65 |k withou|t any me|
|00000560| 73 73 61 67 65 73 20 61 | 6e 64 20 77 69 74 68 6f |ssages a|nd witho|
|00000570| 75 74 20 72 65 71 75 69 | 72 69 6e 67 20 74 68 65 |ut requi|ring the|
|00000580| 20 6a 6f 79 73 74 69 63 | 6b 20 74 6f 20 62 65 20 | joystic|k to be |
|00000590| 6d 6f 76 65 64 20 69 6e | 74 6f 20 74 68 65 20 63 |moved in|to the c|
|000005a0| 6f 72 6e 65 72 73 20 61 | 6e 64 20 74 68 65 20 6d |orners a|nd the m|
|000005b0| 69 64 64 6c 65 2e 20 20 | 54 68 69 73 20 70 72 6f |iddle.  |This pro|
|000005c0| 63 65 64 75 72 65 20 69 | 73 20 69 6e 74 65 6e 64 |cedure i|s intend|
|000005d0| 65 64 20 6f 6e 6c 79 20 | 66 6f 72 20 79 6f 75 72 |ed only |for your|
|000005e0| 20 70 65 72 73 6f 6e 61 | 6c 20 70 72 6f 67 72 61 | persona|l progra|
|000005f0| 6d 73 2c 20 61 73 20 6e | 6f 74 20 61 6c 6c 20 6a |ms, as n|ot all j|
|00000600| 6f 79 73 74 69 63 6b 73 | 20 77 69 6c 6c 20 77 6f |oysticks| will wo|
|00000610| 72 6b 20 77 69 74 68 20 | 74 68 69 73 20 70 72 6f |rk with |this pro|
|00000620| 63 65 64 75 72 65 20 61 | 6e 64 20 76 65 72 79 20 |cedure a|nd very |
|00000630| 66 65 77 20 77 69 6c 6c | 20 77 6f 72 6b 20 77 69 |few will| work wi|
|00000640| 74 68 20 73 6f 6d 65 20 | 61 64 6a 75 73 74 69 6e |th some |adjustin|
|00000650| 67 20 6f 66 20 74 68 65 | 20 6a 6f 79 73 74 69 63 |g of the| joystic|
|00000660| 6b 2e 0d 0a 0d 0a 0d 0a | 42 65 74 74 65 72 49 6e |k.......|BetterIn|
|00000670| 69 74 4a 53 20 28 20 52 | 61 6e 67 65 20 3a 20 62 |itJS ( R|ange : b|
|00000680| 79 74 65 20 29 0d 0a 20 | 20 20 49 6e 69 74 69 61 |yte ).. |  Initia|
|00000690| 6c 69 7a 65 73 20 74 68 | 65 20 6a 6f 79 73 74 69 |lizes th|e joysti|
|000006a0| 63 6b 20 4d 55 43 48 20 | 6d 6f 72 65 20 61 63 63 |ck MUCH |more acc|
|000006b0| 75 72 61 74 65 6c 79 20 | 74 68 61 6e 20 46 61 73 |urately |than Fas|
|000006c0| 74 49 6e 69 74 4a 53 2e | 20 20 41 73 6b 73 20 74 |tInitJS.|  Asks t|
|000006d0| 68 65 20 75 73 65 72 20 | 69 66 20 68 65 20 6f 72 |he user |if he or|
|000006e0| 20 73 68 65 20 69 73 20 | 75 73 69 6e 67 20 61 20 | she is |using a |
|000006f0| 6a 6f 79 73 74 69 63 6b | 2c 20 61 6e 64 20 73 65 |joystick|, and se|
|00000700| 74 73 20 74 68 65 20 76 | 61 72 69 61 62 6c 65 20 |ts the v|ariable |
|00000710| 4a 6f 79 73 74 20 74 6f | 20 54 52 55 45 20 6f 72 |Joyst to| TRUE or|
|00000720| 20 46 41 4c 53 45 20 61 | 63 63 6f 72 64 69 6e 67 | FALSE a|ccording|
|00000730| 6c 79 2e 20 20 49 66 20 | 61 20 6a 6f 79 73 74 69 |ly.  If |a joysti|
|00000740| 63 6b 20 69 73 20 70 72 | 65 73 65 6e 74 2c 20 61 |ck is pr|esent, a|
|00000750| 73 6b 73 20 74 68 65 20 | 75 73 65 72 20 74 6f 20 |sks the |user to |
|00000760| 70 6c 61 63 65 20 74 68 | 65 20 74 68 65 20 6a 6f |place th|e the jo|
|00000770| 79 73 74 69 63 6b 20 69 | 6e 20 74 68 65 20 75 70 |ystick i|n the up|
|00000780| 70 65 72 2d 72 69 67 68 | 74 2d 68 61 6e 64 20 63 |per-righ|t-hand c|
|00000790| 6f 72 6e 65 72 2c 20 63 | 65 6e 74 65 72 2c 20 61 |orner, c|enter, a|
|000007a0| 6e 64 20 6c 6f 77 65 72 | 2d 6c 65 66 74 20 70 6f |nd lower|-left po|
|000007b0| 73 69 74 69 6f 6e 73 2c | 20 70 72 65 73 73 69 6e |sitions,| pressin|
|000007c0| 67 20 61 20 62 75 74 74 | 6f 6e 20 65 61 63 68 20 |g a butt|on each |
|000007d0| 74 69 6d 65 2e 0d 0a 0d | 0a 09 52 41 4e 47 45 20 |time....|..RANGE |
|000007e0| 73 70 65 63 69 66 69 65 | 73 20 74 68 65 20 66 72 |specifie|s the fr|
|000007f0| 61 63 74 69 6f 6e 20 6f | 66 20 74 6f 74 61 6c 20 |action o|f total |
|00000800| 64 69 73 74 61 6e 63 65 | 20 74 68 61 74 20 74 68 |distance| that th|
|00000810| 65 20 6a 6f 79 73 74 69 | 63 6b 20 73 68 6f 75 6c |e joysti|ck shoul|
|00000820| 64 20 61 70 70 72 6f 78 | 69 6d 61 74 65 6c 79 20 |d approx|imately |
|00000830| 63 6f 76 65 72 20 62 65 | 66 6f 72 65 20 70 72 6f |cover be|fore pro|
|00000840| 64 75 63 69 6e 67 20 61 | 20 72 65 61 64 69 6e 67 |ducing a| reading|
|00000850| 20 6f 74 68 65 72 20 74 | 68 61 6e 20 7a 65 72 6f | other t|han zero|
|00000860| 20 69 6e 20 74 68 65 20 | 48 6f 72 69 7a 20 61 6e | in the |Horiz an|
|00000870| 64 20 56 65 72 74 20 70 | 72 6f 63 65 64 75 72 65 |d Vert p|rocedure|
|00000880| 73 2e 20 20 46 6f 72 20 | 65 78 61 6d 70 6c 65 2c |s.  For |example,|
|00000890| 20 61 20 72 61 6e 67 65 | 20 6f 66 20 32 20 73 70 | a range| of 2 sp|
|000008a0| 65 63 69 66 69 65 73 20 | 74 68 61 74 20 74 68 65 |ecifies |that the|
|000008b0| 20 6a 6f 79 73 74 69 63 | 6b 20 73 68 6f 75 6c 64 | joystic|k should|
|000008c0| 20 74 72 61 76 65 6c 20 | 31 2f 32 20 6f 66 20 74 | travel |1/2 of t|
|000008d0| 68 65 20 64 69 73 74 61 | 6e 63 65 20 66 72 6f 6d |he dista|nce from|
|000008e0| 20 74 68 65 20 63 65 6e | 74 65 72 20 74 6f 20 61 | the cen|ter to a|
|000008f0| 20 64 69 72 65 63 74 69 | 6f 6e 20 62 65 66 6f 72 | directi|on befor|
|00000900| 65 20 70 72 6f 64 75 63 | 69 6e 67 20 61 20 72 65 |e produc|ing a re|
|00000910| 61 64 69 6e 67 2e 0d 0a | 0d 0a 0d 0a 4a 6f 79 58 |ading...|....JoyX|
|00000920| 20 66 75 6e 63 74 69 6f | 6e 20 28 72 65 74 75 72 | functio|n (retur|
|00000930| 6e 73 20 42 59 54 45 29 | 0d 0a 20 20 20 52 65 74 |ns BYTE)|..   Ret|
|00000940| 75 72 6e 73 20 74 68 65 | 20 58 2d 63 6f 6f 72 64 |urns the| X-coord|
|00000950| 69 6e 61 74 65 20 6f 66 | 20 74 68 65 20 6a 6f 79 |inate of| the joy|
|00000960| 73 74 69 63 6b 2e 0d 0a | 0d 0a 4a 6f 79 59 20 66 |stick...|..JoyY f|
|00000970| 75 6e 63 74 69 6f 6e 20 | 28 72 65 74 75 72 6e 73 |unction |(returns|
|00000980| 20 42 59 54 45 29 0d 0a | 20 20 20 52 65 74 75 72 | BYTE)..|   Retur|
|00000990| 6e 73 20 74 68 65 20 59 | 2d 63 6f 6f 72 64 75 6e |ns the Y|-coordun|
|000009a0| 61 74 65 20 6f 66 20 74 | 68 65 20 6a 6f 79 73 74 |ate of t|he joyst|
|000009b0| 69 63 6b 2e 0d 0a 0d 0a | 42 75 74 74 6f 6e 31 20 |ick.....|Button1 |
|000009c0| 66 75 6e 63 74 69 6f 6e | 20 28 72 65 74 75 72 6e |function| (return|
|000009d0| 73 20 42 59 54 45 29 0d | 0a 20 20 20 52 65 74 75 |s BYTE).|.   Retu|
|000009e0| 72 6e 73 20 31 20 69 66 | 20 62 75 74 74 6f 6e 20 |rns 1 if| button |
|000009f0| 31 20 69 73 20 70 72 65 | 73 73 65 64 2c 20 6f 74 |1 is pre|ssed, ot|
|00000a00| 68 65 72 77 69 73 65 20 | 30 2e 0d 0a 0d 0a 42 75 |herwise |0.....Bu|
|00000a10| 74 74 6f 6e 32 20 66 75 | 6e 63 74 69 6f 6e 20 28 |tton2 fu|nction (|
|00000a20| 72 65 74 75 72 6e 73 20 | 42 59 54 45 29 0d 0a 20 |returns |BYTE).. |
|00000a30| 20 20 52 65 74 75 72 6e | 73 20 31 20 69 66 20 62 |  Return|s 1 if b|
|00000a40| 75 74 74 6f 6e 20 32 20 | 69 73 20 70 72 65 73 73 |utton 2 |is press|
|00000a50| 65 64 2c 20 6f 74 68 65 | 72 77 69 73 65 20 30 2e |ed, othe|rwise 0.|
|00000a60| 0d 0a 0d 0a 0d 0a 48 6f | 72 69 7a 20 66 75 6e 63 |......Ho|riz func|
|00000a70| 74 69 6f 6e 20 28 72 65 | 74 75 72 6e 73 20 53 48 |tion (re|turns SH|
|00000a80| 4f 52 54 49 4e 54 29 0d | 0a 20 20 20 52 65 74 75 |ORTINT).|.   Retu|
|00000a90| 72 6e 73 20 2d 31 20 69 | 66 20 74 68 65 20 6a 6f |rns -1 i|f the jo|
|00000aa0| 79 73 74 69 63 6b 20 69 | 73 20 4c 45 46 54 20 6f |ystick i|s LEFT o|
|00000ab0| 66 20 74 68 65 20 63 65 | 6e 74 65 72 2c 20 30 20 |f the ce|nter, 0 |
|00000ac0| 69 66 20 69 74 20 69 73 | 20 69 6e 20 74 68 65 20 |if it is| in the |
|00000ad0| 63 65 6e 74 65 72 2c 20 | 61 6e 64 20 31 20 69 73 |center, |and 1 is|
|00000ae0| 20 69 74 20 69 73 20 52 | 49 47 48 54 20 6f 66 20 | it is R|IGHT of |
|00000af0| 74 68 65 20 63 65 6e 74 | 65 72 2e 0d 0a 0d 0a 0d |the cent|er......|
|00000b00| 0a 56 65 72 74 20 66 75 | 6e 63 74 69 6f 6e 20 28 |.Vert fu|nction (|
|00000b10| 72 65 74 75 72 6e 73 20 | 53 48 4f 52 54 49 4e 54 |returns |SHORTINT|
|00000b20| 29 0d 0a 20 20 20 52 65 | 74 75 72 6e 73 20 2d 31 |)..   Re|turns -1|
|00000b30| 20 69 66 20 74 68 65 20 | 6a 6f 79 73 74 69 63 6b | if the |joystick|
|00000b40| 20 69 73 20 41 42 4f 56 | 45 20 74 68 65 20 63 65 | is ABOV|E the ce|
|00000b50| 6e 74 65 72 2c 20 30 20 | 69 73 20 69 74 20 69 73 |nter, 0 |is it is|
|00000b60| 20 69 6e 20 74 68 65 20 | 63 65 6e 74 65 72 2c 20 | in the |center, |
|00000b70| 61 6e 64 20 31 20 69 66 | 20 69 74 20 69 73 20 42 |and 1 if| it is B|
|00000b80| 45 4c 4f 57 20 74 68 65 | 20 63 65 6e 74 65 72 2e |ELOW the| center.|
|00000b90| 0d 0a 0d 0a 20 20 20 48 | 6f 72 69 7a 20 61 6e 64 |....   H|oriz and|
|00000ba0| 20 56 65 72 74 20 61 72 | 65 20 75 73 65 66 75 6c | Vert ar|e useful|
|00000bb0| 20 69 6e 20 61 72 63 61 | 64 65 20 67 61 6d 65 73 | in arca|de games|
|00000bc0| 20 61 6e 64 20 6f 74 68 | 65 72 20 70 72 6f 67 72 | and oth|er progr|
|00000bd0| 61 6d 73 20 77 68 65 72 | 65 20 74 68 65 20 70 72 |ams wher|e the pr|
|00000be0| 6f 67 72 61 6d 20 6d 75 | 73 74 20 6f 6e 6c 79 20 |ogram mu|st only |
|00000bf0| 6b 6e 6f 77 20 77 68 69 | 63 68 20 67 65 6e 65 72 |know whi|ch gener|
|00000c00| 61 6c 20 64 69 72 65 63 | 74 69 6f 6e 20 74 68 65 |al direc|tion the|
|00000c10| 20 6a 6f 79 73 74 69 63 | 6b 20 69 73 20 70 6f 69 | joystic|k is poi|
|00000c20| 6e 74 69 6e 67 2e 0d 0a | 0d 0a 0d 0a 0d 0a 31 2e |nting...|......1.|
|00000c30| 33 20 56 61 72 69 61 62 | 6c 65 73 0d 0a 0d 0a 20 |3 Variab|les.... |
|00000c40| 43 65 6e 74 58 20 2d 20 | 62 79 74 65 3b 20 72 65 |CentX - |byte; re|
|00000c50| 74 75 72 6e 73 20 74 68 | 65 20 58 2d 63 65 6e 74 |turns th|e X-cent|
|00000c60| 65 72 20 6f 66 20 74 68 | 65 20 6a 6f 79 73 74 69 |er of th|e joysti|
|00000c70| 63 6b 3b 20 73 65 74 20 | 6f 6e 20 09 09 09 20 69 |ck; set |on ... i|
|00000c80| 6e 69 74 69 61 6c 69 7a | 61 74 69 6f 6e 2e 0d 0a |nitializ|ation...|
|00000c90| 0d 0a 20 43 65 6e 74 59 | 20 2d 20 62 79 74 65 3b |.. CentY| - byte;|
|00000ca0| 20 72 65 74 75 72 6e 73 | 20 74 68 65 20 59 2d 63 | returns| the Y-c|
|00000cb0| 65 6e 74 65 72 20 6f 66 | 20 74 68 65 20 6a 6f 79 |enter of| the joy|
|00000cc0| 73 74 69 63 6b 3b 20 73 | 65 74 20 6f 6e 20 0d 0a |stick; s|et on ..|
|00000cd0| 09 09 09 20 69 6e 69 74 | 69 61 6c 69 7a 61 74 69 |... init|ializati|
|00000ce0| 6f 6e 2e 0d 0a 0d 0a 20 | 4a 6f 79 53 74 20 2d 20 |on..... |JoySt - |
|00000cf0| 62 6f 6f 6c 65 61 6e 3b | 20 72 65 74 75 72 6e 20 |boolean;| return |
|00000d00| 54 52 55 45 20 69 66 20 | 61 20 6a 6f 79 73 74 69 |TRUE if |a joysti|
|00000d10| 63 6b 20 77 61 73 20 66 | 6f 75 6e 64 20 75 70 6f |ck was f|ound upo|
|00000d20| 6e 20 69 6e 69 74 69 61 | 6c 69 7a 61 74 69 6f 6e |n initia|lization|
|00000d30| 2c 20 09 09 46 41 4c 53 | 45 20 6f 74 68 65 72 77 |, ..FALS|E otherw|
|00000d40| 69 73 65 2e 20 20 44 65 | 66 61 75 6c 74 73 20 74 |ise.  De|faults t|
|00000d50| 6f 20 54 52 55 45 2e 0d | 0a 0d 0a 0d 0a 0d 0a 4c |o TRUE..|.......L|
|00000d60| 45 54 20 4d 45 20 4b 4e | 4f 57 21 21 21 21 0d 0a |ET ME KN|OW!!!!..|
|00000d70| 0d 0a 20 20 4c 65 74 20 | 6d 65 20 6b 6e 6f 77 20 |..  Let |me know |
|00000d80| 77 68 61 74 20 79 6f 75 | 20 74 68 69 6e 6b 20 6f |what you| think o|
|00000d90| 66 20 74 68 69 73 20 61 | 6e 64 20 6f 74 68 65 72 |f this a|nd other|
|00000da0| 20 4a 6f 6e 53 6f 66 74 | 20 70 72 6f 64 75 63 74 | JonSoft| product|
|00000db0| 73 2e 20 20 57 72 69 74 | 65 20 74 6f 3a 0d 0a 0d |s.  Writ|e to:...|
|00000dc0| 0a 20 20 4a 6f 6e 53 6f | 66 74 20 54 65 63 68 6e |.  JonSo|ft Techn|
|00000dd0| 6f 6c 6f 67 69 65 73 20 | 49 6e 63 2e 0d 0a 20 20 |ologies |Inc...  |
|00000de0| 20 20 20 20 37 34 31 20 | 44 61 66 66 6f 64 69 6c |    741 |Daffodil|
|00000df0| 20 57 61 79 0d 0a 20 20 | 20 43 6f 6e 63 6f 72 64 | Way..  | Concord|
|00000e00| 2c 20 43 41 20 39 34 35 | 31 38 2d 32 33 34 31 0d |, CA 945|18-2341.|
|00000e10| 0a 0d 0a 20 4f 72 2c 20 | 77 72 69 74 65 20 74 6f |... Or, |write to|
|00000e20| 20 4a 6f 6e 61 74 68 61 | 6e 20 53 75 69 74 65 20 | Jonatha|n Suite |
|00000e30| 76 69 61 20 45 2d 4d 61 | 69 6c 20 3a 0d 0a 0d 0a |via E-Ma|il :....|
|00000e40| 20 43 6f 6d 70 75 53 65 | 72 76 65 20 3a 20 37 32 | CompuSe|rve : 72|
|00000e50| 33 37 37 2c 32 34 36 33 | 0d 0a 20 0d 0a 20 50 43 |377,2463|.. .. PC|
|00000e60| 2d 4c 69 6e 6b 09 20 20 | 20 3a 20 46 41 54 48 45 |-Link.  | : FATHE|
|00000e70| 52 20 4a 4f 4e 0d 0a 0d | 0a 20 50 72 6f 64 69 67 |R JON...|. Prodig|
|00000e80| 79 20 20 20 20 3a 20 56 | 50 46 54 31 30 42       |y    : V|PFT10B  |
+--------+-------------------------+-------------------------+--------+--------+